#!/usr/bin/perl

$infile = "C:\\DOCUME~1\\Administrator\\workspace\\smsindex\\data\\mobileFAQ\\faqs";
$outfile ="C:\\DOCUME~1\\Administrator\\workspace\\smsindex\\data\\mobileFAQ\\onlyFAQ";

open(IN,$infile);
open(OUT,">$outfile");

@in = <IN>;

for($i=0;$i<$#in/2;$i++){
	print OUT $in[2*$i];
}
close(IN);
close(OUT);